home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zvt1_11u.lha / ZVT / ExampleScripts / CallScript.rexx next >
OS/2 REXX Batch file  |  1995-09-05  |  651b  |  32 lines
  1. /*
  2.  * Callscript - test version
  3.  *
  4.  * This little script opens the line (using playfile), plays the file
  5.  * 'CallBack.ZVT', while being sensitive to DTMF tones,
  6.  * 
  7.  * waits five seconds for a keypress, giving a short acknowledge tone if
  8.  * recognized,
  9.  *
  10.  * hangs up and dials a number (insert your number after 'dialup')
  11.  *
  12.  * If phone is picked, plays the same file again, puts a carrier on the
  13.  * line and hangs up
  14.  */
  15.  
  16.  options results
  17.  address zvt.1
  18.  
  19.  playfile CallBack.ZVT 0
  20.  readnkeys 1
  21.  showstatus result
  22.  hangup
  23.  dialup >Please insert your number<
  24.  
  25.  if (result = 1) then do
  26.    playfile CallBack.ZVT 0
  27.    OpenData 0 57600
  28.    hangup
  29.  end
  30.    
  31.  
  32.